home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / pdf2dsc.ps < prev    next >
Encoding:
Text File  |  1996-09-21  |  3.4 KB  |  104 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf2dsc.ps
  19. % read pdf file and produce DSC "index" file.
  20. %
  21. % Input  file is named PDFname
  22. % Output file is named DSCname
  23. %
  24. % Run using:
  25. %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  26. % Then display the PDF file with
  27. %  gs tempfilename
  28. %
  29. % Modified by rjl/lpd 9/19/96
  30. %    Updates for compatibility with modified pdf_*.ps code for handling
  31. %      page ranges (i.e., partial files) better.
  32. % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  33. %    include Title and CreationDate DSC comments (these are displayed by
  34. %      Ghostview);
  35. %    reduce the size of typical output files by a factor of about 3.
  36. % Modified by L. Peter Deutsch 3/18/96:
  37. %    Removes unnecessary and error-prone code duplicated from pdf_main.ps
  38. % Modified by L. Peter Deutsch for GS 3.33
  39. % Originally by Russell Lang  1995-04-26
  40.  
  41. /DSCfile DSCname (w) file def
  42. /DSCstring 255 string def
  43.    GS_PDF_ProcSet begin
  44.    pdfdict begin
  45.    PDFname (r) file
  46.    pdfopen begin
  47. % setup for loop  (init increment limit)
  48.    /FirstPage where { pop FirstPage } { 1 } ifelse
  49.    1
  50.    /LastPage where { pop LastPage } { pdfpagecount } ifelse
  51. % write header and prolog
  52. DSCfile (%!PS-Adobe-3.0\n) writestring
  53. Trailer /Info knownoget
  54.  {
  55.    dup /Title knownoget
  56.     {
  57.       DSCfile (%%Title: ) writestring
  58.       DSCfile exch write==
  59.     }
  60.    if
  61.    /CreationDate knownoget
  62.     {
  63.       DSCfile (%%CreationDate: ) writestring
  64.       DSCfile exch write==
  65.     }
  66.    if
  67.  }
  68. if
  69. DSCfile (%%Pages: ) writestring
  70. DSCfile 1 index 3 index sub 1 add DSCstring cvs writestring
  71. DSCfile (\n%%EndComments\n) writestring
  72. DSCfile (%%BeginProlog\n) writestring
  73. DSCfile (/Page null def\n/Page# 0 def\n/PDFSave null def\n/DSCPageCount 0 def\n) writestring
  74. DSCfile (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) writestring
  75. DSCfile (GS_PDF_ProcSet begin\npdfdict begin\n) writestring
  76. DSCfile (%%EndProlog\n) writestring
  77. DSCfile (%%BeginSetup\n) writestring
  78. DSCfile PDFname write==only
  79. DSCfile ( \(r\) file pdfopen begin\n) writestring
  80. DSCfile (%%EndSetup\n) writestring
  81. % process each page
  82.     {
  83. DSCfile (%%Page: ) writestring
  84. DSCfile 1 index DSCstring cvs writestring
  85. DSCfile ( ) writestring
  86. DSCfile 1 index DSCstring cvs writestring
  87. DSCfile (\n) writestring
  88. DSCfile exch DSCstring cvs writestring
  89. DSCfile ( DoPDFPage\n) writestring
  90.     } for
  91.    currentdict pdfclose
  92.    end
  93.    end
  94.    end
  95. % write trailer
  96. DSCfile (%%Trailer\n) writestring
  97. DSCfile (currentdict pdfclose\nend\nend\nend\n) writestring
  98. DSCfile (%%EOF\n) writestring
  99. % close output file and exit
  100. DSCfile closefile
  101. quit
  102. % end of pdf2dsc.ps
  103.  
  104.